home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / em7sui_1 / em7sui~1.exe / PieChartTest.wr_ / PieChartTest.wr
Text File  |  1998-10-22  |  3KB  |  132 lines
  1. #VRML V2.0 utf8
  2.  
  3. EXTERNPROTO Red [ exposedField SFFloat transparency ] "..\Appearances\ArtDecoMaterials.wrl#color3"
  4. EXTERNPROTO Orange [ exposedField SFFloat transparency ] "..\Appearances\ArtDecoMaterials.wrl#color14"
  5. EXTERNPROTO Yellow [ exposedField SFFloat transparency ] "..\Appearances\ArtDecoMaterials.wrl#color26"
  6. EXTERNPROTO Green [ exposedField SFFloat transparency ] "..\Appearances\ArtDecoMaterials.wrl#color22"
  7. EXTERNPROTO Blue [ exposedField SFFloat transparency ] "..\Appearances\ArtDecoMaterials.wrl#color7"
  8. EXTERNPROTO Violet [ exposedField SFFloat transparency ] "..\Appearances\ArtDecoMaterials.wrl#color11"
  9.  
  10. EXTERNPROTO em7_RoundedRingSlice [
  11.     exposedField SFNode appearance
  12.     field SFFloat height
  13.     field SFFloat radius
  14.     field SFFloat innerRadius
  15.     field SFFloat angle
  16.     field SFFloat bevelRadius
  17.     field SFFloat creaseAngle
  18.     eventIn SFFloat set_angle
  19.     eventIn SFFloat set_height
  20.     eventIn SFFloat set_radius
  21.     eventIn SFFloat set_innerRadius
  22. ] "..\VR_GRAPH.wrl#em7_RoundedRingSlice"
  23.  
  24. EXTERNPROTO em7_PieChart [
  25.     field MFNode appearances
  26.     field MFNode slices
  27.     field SFFloat radius
  28.     field SFFloat innerRadius
  29.     field SFFloat height
  30.     field MFFloat data
  31.     field SFInt32 dataBlockSize
  32.     field MFString captions
  33.     field SFColor captionColor
  34.     field SFFloat captionHeight
  35.     field SFBool billboarded
  36.     eventIn MFFloat set_data
  37.     eventIn MFString set_captions
  38.     eventIn MFNode set_appearances
  39.     eventOut MFNode broadcastAppearances
  40.     eventOut MFString captions_changed
  41. ] "..\VR_GRAPH.wrl#em7_PieChart"
  42.  
  43. EXTERNPROTO em7_Legend [
  44.     field MFNode appearances
  45.     field MFString descriptions
  46.     field SFString keyStyle 
  47.     field SFFloat textHeight
  48.     field SFFloat textGap
  49.     field SFColor textColor
  50.     eventIn MFNode set_appearances
  51.     eventIn MFString set_descriptions
  52. ] "..\VR_GRAPH.wrl#em7_Legend"
  53.  
  54. NavigationInfo {
  55.     headlight FALSE
  56. }
  57.  
  58. Background {
  59.     skyColor [
  60.         0 0 0.2
  61.         0.7 0.7 0.8
  62.         1 1 1
  63.     ]
  64.     skyAngle [3, 6]
  65. }
  66.  
  67.  
  68. DEF VIEW Viewpoint {
  69.     position 6 6 12
  70.     orientation -0.314 0.422 0.064 0.499
  71. }
  72.  
  73. DEF PIE_TRANS Transform {
  74.     children DEF PIE em7_PieChart {
  75.         appearances [ 
  76.             Red {}
  77.             Yellow {}
  78.             Orange {}
  79.             Green {}
  80.             Blue {}
  81.             Violet {}
  82.         ]
  83.         slices [
  84.             em7_RoundedRingSlice { bevelRadius 0.3 }
  85.             em7_RoundedRingSlice { bevelRadius 0.3 }
  86.             em7_RoundedRingSlice { bevelRadius 0.3 }
  87.             em7_RoundedRingSlice { bevelRadius 0.3 }
  88.             em7_RoundedRingSlice { bevelRadius 0.3 }
  89.             em7_RoundedRingSlice { bevelRadius 0.3 }
  90.         ]    
  91.         data [ 1, 2, 3, 4, 5, 6 ]
  92.         radius 4
  93.         innerRadius 2
  94.         height 1.5
  95.         captionColor 0.8 0.8 1
  96.         captionHeight 0.4
  97.         captions ["Jan - Feb", "March - Apr", "May - Jun", "Jul - Aug", "Sep - Oct", "Nov - Dec"]
  98.     }
  99. }
  100.  
  101. Transform {
  102.     translation 5.5 0 0
  103.     children [
  104.         DEF LEGEND em7_Legend {
  105.             textHeight 0.3
  106.             textGap 0.1
  107.         }
  108.     ]
  109. }
  110.  
  111. PointLight {
  112.     location 0 30 0
  113.     ambientIntensity 0.2
  114. }
  115.  
  116. PointLight {
  117.     location 25 2 5
  118. }
  119.  
  120. PointLight {
  121.     location -25 2 5
  122. }
  123.  
  124. PointLight {
  125.     location 0 2 15
  126. }
  127.  
  128. ROUTE PIE.broadcastAppearances TO LEGEND.set_appearances
  129. ROUTE PIE.captions_changed TO LEGEND.set_descriptions
  130.  
  131.  
  132.